proc DC_10004 { req } {
	global dbConnection
	puts "in DC_10004:req=$req"
	list_to_array $req r_array
	set user_id    	$r_array(User_Id)
	set svc_type 	$r_array(Svc_Type)
	set svc_num 	$r_array(Svc_Num)
	set entity_weigh $r_array(Entity_Weigh)
	set entity_scale $r_array(Entity_Scale)
	set check_date   $r_array(Check_Date)
	set maint_distance $r_array(Maint_Distance)
	set sql "update lbs_subscription set sub_entity_weigh=$entity_weigh ,sub_entity_container=$entity_scale,check_date=$check_date,maintenance_freq=$maint_distance where user_id=$user_id and svc_num='$svc_num' and user_type='$svc_type'"
	puts $sql
        set handle $dbConnection
	puts "handle:$handle"
	set result [::mysql::exec $handle $sql ]
	return "{{00000}}"
}
